home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ IE User Button 5.xpl < prev    next >
Text File  |  2001-05-22  |  5KB  |  171 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="3"
  3. "COUNT"="5"
  4. "UIPATH"="Internet\Internet Explorer\User Commands"
  5. "NAME"="User Command #5"
  6. "VERSION"="1.01"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Name"
  9. "TEXT 2"="Status Bar"
  10. "TEXT 3"="Execute"
  11. "TEXT 4"="Icon (inactive)"
  12. "TEXT 5"="Icon (hover)"
  13. "DATA 1"="DO NOT USE! - Enter text manually"
  14. "DATA 2"="DO NOT USE! - Enter text manually"
  15. "DATA 3"="Applications (*.exe)|*.exe"
  16. "DATA 4"="ICO, DLL or EXE files (*.ico, *.dll, *.exe)|*.icon;*.dll;*.exe"
  17. "DATA 5"="ICO, DLL or EXE files (*.ico, *.dll, *.exe)|*.icon;*.dll;*.exe"
  18. "DESCRIPTION 1"="Internet Explorer can be configured to have user defined commands in it's toolbar and inside the "Tools" menu. A detailed description for each setting follows:"
  19. "DESCRIPTION 2"=""Name": the name of the button, can anything you want e.g. "My Cool Button"
  20. "DESCRIPTION 3"=""Status Bar": the text that is displayed inside on the status bar if you select your commnand from the "Tools" menu."
  21. "DESCRIPTION 4"=""Execute": the application that should be launched, e.g. "C:\My Cool Program\Program.exe"
  22. "DESCRIPTION 5"=""Icon (inactive)": a filename of a *.ICO or *.DLL/*.EXE file that is used as icon for the command if you mouse is not touching it. If you want to use a DLL or EXE file, please enter the number of the icon after the filename e.g. "moricons.dll,2"."
  23. "DESCRIPTION 6"=""Icon (hover)": a filename of a *.ICO or *.DLL/*.EXE file that is used as icon for the command if you mouse is over the command (sometimes also called "Hot Icon"). If you want to use a DLL or EXE file, please enter the number of the icon after the filename e.g. "moricons.dll,2"."
  24. "DESCRIPTION 7"="Once you have the desired changes, just exit Internet Explorer (if it is already running) and start it again. To remove the button again, simply clear all fields."
  25. "DESCRIPTION 8"="IMPORTANT: The button you define here are visible to ALL users on this computer! This is *NOT* a user specifiy setting!"
  26. "AUTHOR"="TeX HeX of Xteq Systems"
  27. "CONTACTURL"="http://www.xteq.com/"
  28. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  29. "COMMENT 1"="Honda CBR600F - ABANDON ALL HOPE!"
  30. "COMMENT 2"="Found by Zoran Tasin, tashinz@bigfoot.com, reported to http://www.win2000mag.com"
  31.  
  32. 'ACHTUNG!
  33. sGUID="{F048A610-87EA-4b7e-9745-0B39873F79C5}"
  34.  
  35.  
  36.  
  37. sIEPath="HKLM\SOFTWARE\Microsoft\Internet Explorer\Extensions\"
  38.  
  39. 'MenuText and ButtonText are always the same
  40. sText1="ButtonText" 'STR
  41. sText2="MenuText" 'STR
  42.  
  43. 'MenuStatusBar... 
  44. sStatText="MenuStatusBar"
  45.  
  46. 'Exec... what should be started
  47. sExec="Exec"
  48.  
  49. 'Icon and HotIcon
  50. sIcon="Icon"
  51. sIconHot="HotIcon"
  52.  
  53.  
  54. 'CLSID... always {1FBA04EE-3024-11d2-8F1F-0000F87ABD16}
  55. sCLSID="CLSID" 
  56.  
  57. 'Default Visible.. always YES
  58. sDefVis="Default Visible" 
  59.  
  60.  
  61.  
  62.  
  63. 'will be build later on
  64. sPath=""
  65.  
  66. SUB Plugin_Initialize
  67.  sPath=sIEPath & sGUID & "\"
  68.  
  69.  if RegPathExists(sPath) then
  70.     s=RegReadValue(sPath & sText1) 
  71.     Call SetUIElement(1,s)
  72.  
  73.     s=RegReadValue(sPath & sStatText) 
  74.     Call SetUIElement(2,s)
  75.  
  76.     s=RegReadValue(sPath & sExec) 
  77.     Call SetUIElement(3,s)
  78.  
  79.     s=RegReadValue(sPath & sIcon) 
  80.     Call SetUIElement(4,s)
  81.  
  82.     s=RegReadValue(sPath & sIconHot) 
  83.     Call SetUIElement(5,s)
  84.  end if
  85. END SUB
  86.  
  87. SUB Plugin_CheckData(ElementIndex)
  88. END SUB
  89.  
  90. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  91.  bDoRemove=false
  92.  
  93.  'button name
  94.  s=GetUIElement(1)
  95.  sP=sPath & sText1
  96.  if Len(s)>0 then
  97.     Call RegWriteValue(sP,s,1) 
  98.  else
  99.     if RegValueExists(sP) then Call RegDeleteValue(sP)
  100.     bDoRemove=true
  101.  end if
  102.  
  103.  'menu name
  104.  s=GetUIElement(1)
  105.  sP=sPath & sText2
  106.  if Len(s)>0 then
  107.     Call RegWriteValue(sP,s,1) 
  108.  else
  109.     if RegValueExists(sP) then Call RegDeleteValue(sP)
  110.     bDoRemove=true
  111.  end if
  112.  
  113.  'status text
  114.  s=GetUIElement(2)
  115.  sP=sPath & sStatText
  116.  if Len(s)>0 then
  117.     Call RegWriteValue(sP,s,1) 
  118.  else
  119.     if RegValueExists(sP) then Call RegDeleteValue(sP)
  120.     bDoRemove=true
  121.  end if
  122.  
  123.  'exec
  124.  s=GetUIElement(3)
  125.  sP=sPath & sExec
  126.  if Len(s)>0 then
  127.     Call RegWriteValue(sP,s,1) 
  128.  else
  129.     if RegValueExists(sP) then Call RegDeleteValue(sP)
  130.     bDoRemove=true
  131.  end if
  132.  
  133.  
  134.  'icon
  135.  s=GetUIElement(4)
  136.  sP=sPath & sIcon
  137.  if Len(s)>0 then
  138.     Call RegWriteValue(sP,s,1) 
  139.  else
  140.     if RegValueExists(sP) then Call RegDeleteValue(sP)
  141.     bDoRemove=true
  142.  end if
  143.  
  144.  
  145.  'hot icon
  146.  s=GetUIElement(5)
  147.  sP=sPath & sIconHot
  148.  if Len(s)>0 then
  149.     Call RegWriteValue(sP,s,1) 
  150.  else
  151.     if RegValueExists(sP) then Call RegDeleteValue(sP)
  152.     bDoRemove=true
  153.  end if
  154.  
  155.  
  156.  'do a remove or not???
  157.  if bDoRemove=false then
  158.     Call RegWriteValue(sPath & sCLSID,"{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}",1) 
  159.     Call RegWriteValue(sPath & sDefVis,"Yes",1) 
  160.  else
  161.     if RegValueExists(sPath & sCLSID) then Call RegDeleteValue(sPath & sCLSID)
  162.     if RegValueExists(sPath & sDefVis) then Call RegDeleteValue(sPath & sDefVis)
  163.     if RegPathExists(sPath) then Call RegDeletePath(sPath)
  164.  end if
  165.  
  166. END SUB
  167.  
  168. SUB Plugin_Terminate
  169. END SUB
  170.  
  171.